with Ada.Text_IO;	use Ada.Text_IO;

package body geo is

   -----------------------------------------------------------------------------
   -----------------------------------------------------------------------------
   function createSommet( x,y,z : in float) return TSommet is
   	t: TSommet;
   begin
      t.x :=x;
      t.y :=y;
      t.z :=z;
      return t;
   end;
   -----------------------------------------------------------------------------
   -----------------------------------------------------------------------------
   Function createTriangle(a,b,c: in Integer) return TTriangle is
      t: TTriangle;
   begin
      t.a := a;
      t.b := b;
      t.c := c;
      return t;
   end;

end geo;
